home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
keys.zip
/
KEYS.BAS
next >
Wrap
BASIC Source File
|
1986-11-16
|
22KB
|
807 lines
1000 DIM PARA%(3700)
1010 DIM CHUTE%(3700)
1020 DIM BEANS%(3000)
1030 DIM CORN%(3700)
1040 DIM WHEAT%(3000)
1050 '+++++++++++++++++++++++++++++++++
1060 'MUST HAVE IBM WITH GRAPH CARD. +
1070 'FROM DOS> ENTER BASICA; LOAD +
1080 '"KEYS; RUN. +
1090 '+++++++++++++++++++++++++++++++++
1100 'DIM X(1000)
1110 SCREEN 2:CLS:KEY OFF
1120 '+++++++++++++
1130 '
1140 SCREEN 2:CLS:KEY OFF
1150 LOCATE 1,1:PRINT"Grains"
1155 LOCATE 2,1:PRINT"Copyright Keys 1986"
1160 '
1170 '
1180 FOR I=0 TO 4 STEP .2
1190 CIRCLE (320,100),100,,,,I
1200 '+++++
1210 CIRCLE (470+X,100),50,,,,I
1220 CIRCLE (170-X,100),50,,,,I
1230 '+++++
1240 NEXT I
1250 '++++
1260 FOR I=0 TO 150 STEP 10
1270 LINE (319,0)-(319+I,199),0,BF
1280 LINE (319,0)-(319-I,199),0,BF
1290 NEXT I
1300 FOR I=0 TO 100 STEP 10
1310 LINE (170,50+I)-(470,150-I)
1320 'STOP
1330 NEXT I
1340 'LINE (100,50)-(550,150),,B
1350 'LINE (320,50)-(550,150),,B
1360 'STOP
1370 'FOR I=1 TO 55:PRINT:NEXT I
1380 '++++GET AND PUT DEMO
1390 '
1400 '
1410 '
1420 '
1430 '
1440 '
1450 GET (100,50)-(319,150),PARA%
1460 GET (320,50)-(550,150),CHUTE%
1470 'CLS
1480 '
1490 '
1500 '
1510 X=320
1520 Y=100:Z=5
1530 PUT (X,50-Z),CHUTE%,XOR
1540 PUT (Y,50+Z),PARA%,XOR
1550 'STOP
1560 'FOR DELAY=1 TO 100:NEXT
1570 'PUT (X,50-Z),CHUTE%,XOR
1580 'PUT (Y,50+Z),PARA%,XOR
1590 X=X-40:Y=Y+40:Z=Z+15
1600 IF Z=50 THEN 1620
1610 GOTO 1530
1620 FOR K=1 TO 55:PRINT:NEXT
1630 '++++BEANS
1640 SCREEN 2:CLS
1650 FOR I=1 TO 30
1660 CIRCLE (360,50),I:CIRCLE (360,75),I
1670 NEXT I
1680 LINE (320,37)-(355,88),1,BF
1690 '++++
1700 LINE (390,37)-(450,88),1,BF
1710 LINE (420,47)-(450,57),0,BF
1720 LINE (420,67)-(450,77),0,BF
1730 '++++
1740 FOR K=1 TO 51
1750 LINE (485-K/1.5,37+K)-(485+K/1.5,37+K)
1760 NEXT K
1770 FOR K=1 TO 20
1780 LINE (485-K/1.5,70+K)-(485+K/1.5,70+K),0
1790 NEXT K
1800 LINE (475,70)-(495,75),1,BF
1810 '++++
1820 LINE (520,37)-(580,88),1,BF
1830 FOR K=1 TO 15
1840 LINE (540,75+K)-(540+K,75+K),0
1850 LINE (560,36+K)-(545+K,36+K),0
1860 NEXT K
1870 '++++
1880 LINE (582,37)-(639,88),1,BF
1890 LINE (605,47)-(639,57),0,BF
1900 LINE (582,67)-(611,77),0,BF
1910 'STOP
1920 '+++++++++++++++++++++++++++++++++
1930 'LINE (310,30)-(639,100),,B
1940 'END
1950 '++++GET AND PUT DEMO
1960 '
1970 '
1980 '
1990 '
2000 '
2010 '
2020 GET (310,30)-(639,100),BEANS%
2030 CLS
2040 '
2050 '
2060 '
2070 '
2080 FOR L=1 TO 5
2090 X=0
2100 PUT (X,50),BEANS%,XOR
2110 PUT (310,30),BEANS%,XOR
2120 'FOR DELAY=1 TO 100:NEXT
2130 X=200
2140 PUT (X,90),BEANS%,XOR
2150 X=0
2160 PUT (X,125),BEANS%,XOR
2170 NEXT L
2180 FOR J=1 TO 3000:NEXT
2190 FOR K=1 TO 50:PRINT:NEXT
2200 '++++
2210 '++++++++
2220 W=940
2230 FOR K=1 TO 3
2240 LOCATE 2+4*S,8:PRINT W
2250 W=W-230:S=S+2
2260 NEXT
2270 '++++
2280 LOCATE 1,1:PRINT CHR$(80)
2290 LOCATE 5,1:PRINT CHR$(82)
2300 LOCATE 9,1:PRINT CHR$(73)
2310 LOCATE 14,1:PRINT CHR$(67)
2320 LOCATE 18,1:PRINT CHR$(69)
2330 '+++++++++++
2340 LOCATE 2,5:PRINT CHR$(99)
2350 LOCATE 3,5:PRINT CHR$(101)
2360 LOCATE 4,5:PRINT CHR$(110)
2370 LOCATE 5,5:PRINT CHR$(116)
2380 LOCATE 6,5:PRINT CHR$(115)
2390 '
2400 LOCATE 8,5:PRINT CHR$(112)
2410 LOCATE 9,5:PRINT CHR$(101)
2420 LOCATE 10,5:PRINT CHR$(114)
2430 '
2440 LOCATE 12,5:PRINT CHR$(98)
2450 LOCATE 13,5:PRINT CHR$(117)
2460 LOCATE 14,5:PRINT CHR$(115)
2470 LOCATE 15,5:PRINT CHR$(104)
2480 LOCATE 16,5:PRINT CHR$(101)
2490 LOCATE 17,5:PRINT CHR$(108)
2500 '+++++
2510 LOCATE 20,13:PRINT" 81 82 83 84 85 86"
2520 LOCATE 22,1:PRINT"SOYBEANS - CBOT - WEEKLY CLOSING PRICE (CENTS PER BUSHEL) - LAST 312 WEEKS. REPORT OF PRICE SPECULATION - ALL CASH BASIS - 50000 BUSHELS.
2530 'SCREEN 2:CLS:KEY OFF
2540 READ X
2550 Y=X
2560 RESTORE
2570 READ X
2580 'PRINT X;
2590 IF X=-1 THEN 2650
2600 N=N+1
2610 IF X>Z THEN Z=X
2620 IF X<Y THEN Y=X
2630 'PRINT N;X;Y;Z
2640 GOTO 2570
2650 NPT=N:N=0
2660 RESTORE
2670 '
2680 READ X:N=N+1
2690 IF X=-1 THEN 2740
2700 LINE (100+N,(Z-X)/((Z-Y)/145))-(N+100,145),1
2710 LINE (N+100,(Z-X)/((Z-Y)/145))-(N+100,0),2
2720 '
2730 GOTO 2680
2740 'END
2750 '++++++++
2760 FOR I=101 TO 421 STEP 10
2770 FOR J=0 TO 140 STEP 10
2780 PSET(I,J):NEXT:NEXT
2790 FOR I=101 TO 421 STEP 10:PSET (I,145):NEXT
2800 '++++
2810 '
2820 '
2830 LOCATE 1,56:PRINT"UPDATE ON:";" 11-14-1986"
2840 LOCATE 2,56:PRINT"PROJECT TO:";" 11-21-1986"
2850 LOCATE 4,56:PRINT"LAST PRICE:";" 504"
2860 LOCATE 7,56:PRINT"TOTAL GAIN:";" $210000"
2870 LOCATE 8,56:PRINT"AVERAGE GAIN:";" $40500"
2880 LOCATE 9,56:PRINT"AVERAGE LOSS:";" $19000"
2890 LOCATE 12,56:PRINT"# OF DIRECTIONS:";" 11"
2900 LOCATE 13,56:PRINT"PROB SUCCESS:";" 64%"
2910 LOCATE 14,56:PRINT"PROB FAIL:";" 36%"
2920 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
2930 LOCATE 18,56:PRINT"GAIN / DIRECT:";" $18500"
2940 '
2950 'LINE (380,35)-(390,70),1,BF
2960 'FOR I=0 TO 25
2970 'LINE (360+I,70+I)-(410-I,70+I)
2980 'NEXT I
2990 '
3000 FOR I=1 TO 5
3010 LOCATE 15,56:PRINT" "
3020 FOR K=1 TO 900:NEXT K
3030 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
3040 FOR K=1 TO 900:NEXT K
3050 NEXT I
3060 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
3070 '++++
3080 '
3090 FOR I=1 TO 10^4:NEXT
3100 '+++++++SOYBEANS+++++++++++
3110 '+++++++CBOT+++++++++++++++
3120 '++++++WEEKLY CLOSE++++++++
3130 '+++++NEAREST FUTURE+++++++
3140 '+++CENTS PER BUSHEL+++++++
3150 '+++++++BEGIN JANUARY '80++
3160 '++++END 11/14/86++++++++++
3170 'DATA 644,639,656,662,670
3180 'DATA 676,655,642,633,627
3190 'DATA 617,622,595,587,595
3200 'DATA 592,606,598,619,607
3210 'DATA 632,624,618,628,636
3220 'DATA 657,713,748,789,770
3230 'DATA 794,763,730,749,795
3240 'DATA 811,808,873,808,806
3250 'data 825,859,906,897,888
3260 '
3270 DATA 908,946,932,845,737
3280 DATA 785,790,815,793,768
3290 DATA 725,728,768,749,763
3300 DATA 738,710,734,763,768
3310 DATA 780,789,781,792,778
3320 DATA 766,745,754,767,728
3330 DATA 742,721,688,702,751
3340 DATA 742,735,735,714,696
3350 DATA 680,668,672,657,664
3360 DATA 648,650,665,657,650
3370 DATA 651,654,634,651,644
3380 DATA 667,639,619,617,612
3390 DATA 630,644,654,658,648
3400 DATA 627,618,619,605,597
3410 DATA 620,640,649,660,648
3420 DATA 663,651,654,663,671
3430 DATA 638,624,647,624,628
3440 DATA 607,618,628,618,605
3450 DATA 592,565,564,560,553
3460 DATA 538,552,541,530,530
3470 DATA 536,529,532,568,562
3480 DATA 565,579,563,569,567
3490 DATA 561,565,572,589,592
3500 DATA 594,594,595,598,573
3510 DATA 577,572,597,628,637
3520 DATA 648,623,646,640,628
3530 DATA 617,618,610,618,603
3540 DATA 594,604,610,617,642
3550 DATA 707,690,797,853,833
3560 DATA 933,900,942,867,908
3570 DATA 866,846,887,833,827
3580 DATA 857,828,783,796,785
3590 DATA 784,782,806,815,764
3600 DATA 778,733,734,735,707
3610 DATA 718,737,758,784,773
3620 DATA 800,789,807,774,780
3630 DATA 782,808,857,888,887
3640 DATA 827,780,763,788,747
3650 DATA 678,685,667,613,633
3660 DATA 637,660,638,633,628
3670 DATA 603,599,592,590,626
3680 DATA 631,627,622,620,614
3690 DATA 611,608,594,591,587
3700 DATA 573,561,579,596,597
3710 DATA 607,597,581,573,567
3720 DATA 576,605,607,603,599
3730 DATA 598,597,578,590,579
3740 DATA 568,567,594,585,574
3750 DATA 563,573,577,555,539
3760 DATA 523,520,523,512,516
3770 DATA 513,510,515,507,502
3780 DATA 504,499,517,521,503
3790 DATA 488,498,508,523,531
3800 DATA 527,529,533,532,539
3810 DATA 533,531,526,524,526
3820 DATA 532,537,534,535,522
3830 DATA 524,525,525,531,539
3840 DATA 532,531,525,533,527
3850 DATA 533,518,519,528,545
3860 DATA 522,513,503,514,478
3870 DATA 483,482,481,507,482
3880 DATA 482,472,474,487,498
3885 DATA 497,504,-1
3890 Y=0:Z=0:N=0:S=0
3900 'restore 4310
3910 'DIM X(1000)
3920 '++++CORN
3930 SCREEN 2:CLS
3940 FOR K=1 TO 40
3950 CIRCLE (375,60),K
3960 NEXT K
3970 FOR K=1 TO 15
3980 CIRCLE (375,60),K,0
3990 NEXT K
4000 LINE (380,54)-(425,66),0,BF
4010 '++++
4020 FOR K=1 TO 40
4030 CIRCLE (460,60),K
4040 NEXT K
4050 FOR K=1 TO 15
4060 CIRCLE (460,60),K,0
4070 NEXT K
4080 '++++
4090 LINE (506,43)-(534,77),1,BF
4100 FOR K=1 TO 15
4110 CIRCLE (546,49),K
4120 NEXT K
4130 '++++
4140 FOR K=1 TO 40
4150 CIRCLE (605,60),K
4160 NEXT K
4170 FOR K=1 TO 15
4180 CIRCLE (605,60),K,0
4190 NEXT K
4200 LINE (585,55)-(639,80),0,BF
4210 LINE (565,43)-(595,77),1,BF
4220 LINE (609,55)-(639,77),1,BF
4230 '+++++++++++++++++++++++++++++++++
4240 LINE (320,30)-(639,90),,B
4250 '
4260 '++++GET AND PUT DEMO
4270 '
4280 '
4290 '
4300 '
4310 '
4320 '
4330 GET (320,30)-(639,90),CORN%
4340 'CLS
4350 '
4360 '
4370 '
4380 '
4390 X=320
4400 PUT (X,95),CORN%,XOR
4410 'FOR DELAY=1 TO 100:NEXT
4420 X=0
4430 PUT (X+N,95),CORN%,XOR
4440 'X=0
4450 PUT (X+N,30),CORN%,XOR
4460 FOR I=0 TO 330 STEP 20
4470 PUT (X+I,95),CORN%,XOR
4480 PUT (X+I,30),CORN%,XOR
4490 PUT (X+I,95),CORN%,XOR
4500 PUT (X+I,30),CORN%,XOR
4510 NEXT I
4520 FOR K=1 TO 3000:NEXT
4530 FOR J=1 TO 50:PRINT:NEXT
4540 SCREEN 2:CLS:KEY OFF
4550 '+++++++++++++++++++++++++++++++++
4560 'MUST HAVE IBM WITH GRAPH CARD. +
4570 'FROM DOS> ENTER BASICA; LOAD +
4580 '"KEYS; RUN. +
4590 '+++++++++++++++++++++++++++++++++
4600 '++++++++
4610 W=390
4620 FOR K=1 TO 3
4630 LOCATE 2+4*S,8:PRINT W
4640 W=W-115:S=S+2
4650 NEXT
4660 '++++
4670 LOCATE 1,1:PRINT CHR$(80)
4680 LOCATE 5,1:PRINT CHR$(82)
4690 LOCATE 9,1:PRINT CHR$(73)
4700 LOCATE 14,1:PRINT CHR$(67)
4710 LOCATE 18,1:PRINT CHR$(69)
4720 '+++++++++++
4730 LOCATE 2,5:PRINT CHR$(99)
4740 LOCATE 3,5:PRINT CHR$(101)
4750 LOCATE 4,5:PRINT CHR$(110)
4760 LOCATE 5,5:PRINT CHR$(116)
4770 LOCATE 6,5:PRINT CHR$(115)
4780 '
4790 LOCATE 8,5:PRINT CHR$(112)
4800 LOCATE 9,5:PRINT CHR$(101)
4810 LOCATE 10,5:PRINT CHR$(114)
4820 '
4830 LOCATE 12,5:PRINT CHR$(98)
4840 LOCATE 13,5:PRINT CHR$(117)
4850 LOCATE 14,5:PRINT CHR$(115)
4860 LOCATE 15,5:PRINT CHR$(104)
4870 LOCATE 16,5:PRINT CHR$(101)
4880 LOCATE 17,5:PRINT CHR$(108)
4890 '+++++
4900 LOCATE 20,13:PRINT" 81 82 83 84 85 86"
4910 '++++
4920 LOCATE 22,1:PRINT"CORN - CBOT - WEEKLY CLOSING PRICE (CENTS PER BUSHEL) - LAST 312 WEEKS. REPORT OF PRICE SPECULATION - ALL CASH BASIS - 50000 BUSHELS.
4930 READ X
4940 Y=X
4950 RESTORE 5460
4960 READ X
4970 'PRINT X;
4980 IF X=-1 THEN 5040
4990 N=N+1
5000 IF X>Z THEN Z=X
5010 IF X<Y THEN Y=X
5020 'PRINT N;X;Y;Z
5030 GOTO 4960
5040 NPT=N:N=0
5050 RESTORE 5460
5060 '
5070 READ X:N=N+1
5080 IF X=-1 THEN 5130
5090 LINE (100+N,(Z-X)/((Z-Y)/145))-(N+100,145),1
5100 LINE (N+100,(Z-X)/((Z-Y)/145))-(N+100,0),2
5110 '
5120 GOTO 5070
5130 'END
5140 '++++++++
5150 FOR I=101 TO 421 STEP 10
5160 FOR J=0 TO 140 STEP 10
5170 PSET(I,J):NEXT:NEXT
5180 FOR I=101 TO 421 STEP 10:PSET (I,145):NEXT
5190 '
5200 '
5210 LOCATE 1,56:PRINT"UPDATE ON:";" 11-14-1986"
5220 LOCATE 2,56:PRINT"PROJECT TO:";" 11-21-1986"
5230 LOCATE 4,56:PRINT"LAST PRICE:";" 171"
5240 LOCATE 7,56:PRINT"TOTAL GAIN:";" $172500"
5250 LOCATE 8,56:PRINT"AVERAGE GAIN:";" $18500"
5260 LOCATE 9,56:PRINT"AVERAGE LOSS:";" $8500"
5270 LOCATE 12,56:PRINT"# OF DIRECTIONS:";" 15"
5280 LOCATE 13,56:PRINT"PROB SUCCESS:";" 74%"
5290 LOCATE 14,56:PRINT"PROB FAIL:";" 26%"
5300 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
5310 LOCATE 18,56:PRINT"GAIN / DIRECT:";" $11000"
5320 '++++
5330 '
5340 'LINE (380,5)-(390,40),1,BF
5350 'FOR I=0 TO 25
5360 'LINE (360+I,40+I)-(410-I,40+I)
5370 'NEXT I
5380 FOR I=1 TO 5
5390 LOCATE 15,56:PRINT" "
5400 FOR J=1 TO 900:NEXT J
5410 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
5420 FOR J=1 TO 900:NEXT J
5430 NEXT I
5440 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
5450 FOR I=1 TO 10^4:NEXT
5460 '+++++++++CORN++++++++++++
5470 '+++++++CBOT++++++++++++++
5480 '++++++++WEEKLY+++++++++++
5490 '+++++NEAREST FUTURE++++++
5500 '++CENTS PER BUSHEL+++++++
5510 '+++ JANUARY '80++++++++++
5520 '++++++++END 11/14/86+++++
5530 'DATA 284,273,274,272,277
5540 'DATA 274,273,268,263,265
5550 'DATA 263,268,260,269,271
5560 'DATA 267,270,268,275,272
5570 'DATA 280,277,274,278,281
5580 'DATA 283,296,302,323,321
5590 'DATA 338,341,333,342,360
5600 'DATA 358,348,357,345,346
5610 'data 354,360,374,374,376
5620 'data 380,388
5630 DATA 393,373,353
5640 DATA 376,378,381,374,379
5650 DATA 361,356,368,364,363
5660 DATA 360,349,348,360,362
5670 DATA 363,366,367,364,362
5680 DATA 352,342,345,352,340
5690 DATA 348,344,328,335,346
5700 DATA 343,342,339,327,309
5710 DATA 304,292,292,277,277
5720 DATA 287,288,292,291,287
5730 DATA 288,288,284,278,275
5740 DATA 263,267,254,250,268
5750 DATA 271,275,273,273,275
5760 DATA 274,270,263,257,259
5770 DATA 256,263,272,277,281
5780 DATA 280,278,276,272,269
5790 DATA 281,275,270,277,274
5800 DATA 272,265,263,273,256
5810 DATA 245,242,227,226,228
5820 DATA 229,214,224,225,220
5830 DATA 221,220,218,215,230
5840 DATA 236,240,238,231,234
5850 DATA 235,242,245,248,256
5860 DATA 257,263,268,274,278
5870 DATA 277,280,274,287,304
5880 DATA 313,315,311,315,317
5890 DATA 317,300,304,302,307
5900 DATA 309,309,319,320,330
5910 DATA 330,325,320,350,358
5920 DATA 353,360,358,367,344
5930 DATA 355,355,350,353,341
5940 DATA 348,354,357,346,339
5950 DATA 337,330,327,343,337
5960 DATA 330,335,323,329,330
5970 DATA 325,319,325,334,344
5980 DATA 349,354,354,359,354
5990 DATA 358,344,346,348,356
6000 DATA 353,349,347,347,354
6010 DATA 353,343,351,307,287
6020 DATA 298,294,295,305,296
6030 DATA 301,313,285,279,281
6040 DATA 283,279,277,275,276
6050 DATA 276,270,265,257,255
6060 DATA 265,268,270,270,273
6070 DATA 272,272,272,269,266
6080 DATA 265,267,270,280,281
6090 DATA 283,281,285,284,282
6100 DATA 282,281,275,275,280
6110 DATA 277,275,270,272,275
6120 DATA 281,240,230,228,232
6130 DATA 234,230,227,223,219
6140 DATA 223,225,224,220,221
6150 DATA 234,237,239,238,244
6160 DATA 244,252,251,252,249
6170 DATA 250,251,242,245,240
6180 DATA 237,238,230,233,236
6190 DATA 231,233,234,227,227
6200 DATA 229,235,248,258,234
6210 DATA 237,238,230,235,224
6220 DATA 201,203,210,174,169
6230 DATA 165,159,154,152,153
6240 DATA 166,172,170,167,164
6250 DATA 174,173,173,171,-1
6260 Y=0:Z=0:N=0:S=0
6270 '++++++++++++++++++++++++++++++++++++++
6280 '++++++++++++++++++++++++++++++++++++++
6290 '++++++++++++++++++++++++++++++++++++++
6300 'DIM X(1000)
6310 '++++WHEAT
6320 SCREEN 2:CLS
6330 FOR I=1 TO 50
6340 LINE (330+I/3.5,37+I)-(360-I/3.5,37+I)
6350 LINE (360+I/3.5,37+I)-(390-I/3.5,37+I)
6360 NEXT I
6370 '
6380 '++++
6390 LINE (395,38)-(440,87),1,BF
6400 LINE (420,38)-(450,57),0,BF
6410 LINE (420,67)-(425,87),0,BF
6420 '++++
6430 FOR K=1 TO 35
6440 CIRCLE (480,73),K
6450 NEXT K
6460 FOR K=1 TO 15
6470 CIRCLE (480,73),K,0
6480 NEXT K
6490 LINE (481,71)-(515,77),0,BF
6500 LINE (465,67)-(495,70),1,BF
6510 '++++
6520 '++++
6530 FOR K=1 TO 35
6540 CIRCLE (555,73),K
6550 NEXT K
6560 FOR K=1 TO 15
6570 CIRCLE (555,73),K,0
6580 NEXT K
6590 LINE (570,75)-(590,87),1,BF
6600 '++++
6610 LINE (595,37)-(620,87),1,BF
6620 LINE (575,50)-(639,57),1,BF
6630 '+++++++++++++++++++++++++++++++++
6640 'LINE (320,30)-(639,100),,B
6650 '++++GET AND PUT DEMO
6660 '
6670 '
6680 '
6690 '
6700 '
6710 '
6720 GET (320,30)-(639,100),WHEAT%
6730 'CLS
6740 '
6750 '
6760 '
6770 '
6780 FOR X=320 TO 0 STEP -10
6790 PUT (X,30),WHEAT%,XOR
6800 'FOR DELAY=1 TO 100:NEXT
6810 PUT (X,30),WHEAT%,XOR
6820 NEXT
6830 '++++
6840 PUT (0,30),WHEAT%,XOR
6850 FOR X=0 TO 50 STEP 5
6860 PUT (0,30+X),WHEAT%,XOR
6870 PUT (320,30+X),WHEAT%,XOR
6880 PUT (0,30+X),WHEAT%,XOR
6890 PUT (320,30+X),WHEAT%,XOR
6900 NEXT
6910 CLS
6920 PUT (160,50),WHEAT%,XOR
6930 FOR K=1 TO 3000:NEXT
6940 FOR J=1 TO 50:PRINT:NEXT
6950 SCREEN 2:CLS:KEY OFF
6960 '+++++++++++++++++++++++++++++++++
6970 'MUST HAVE IBM WITH GRAPH CARD. +
6980 'FROM DOS> ENTER BASICA; LOAD +
6990 '"KEYS; RUN. +
7000 '+++++++++++++++++++++++++++++++++
7010 '++++++++
7020 W=520
7030 FOR K=1 TO 3
7040 LOCATE 2+4*S,8:PRINT W
7050 W=W-130:S=S+2
7060 NEXT
7070 '++++
7080 LOCATE 1,1:PRINT CHR$(80)
7090 LOCATE 5,1:PRINT CHR$(82)
7100 LOCATE 9,1:PRINT CHR$(73)
7110 LOCATE 14,1:PRINT CHR$(67)
7120 LOCATE 4,5:PRINT CHR$(110)
7130 LOCATE 18,1:PRINT CHR$(69)
7140 '+++++++++++
7150 LOCATE 2,5:PRINT CHR$(99)
7160 LOCATE 3,5:PRINT CHR$(101)
7170 LOCATE 5,5:PRINT CHR$(116)
7180 LOCATE 6,5:PRINT CHR$(115)
7190 '
7200 LOCATE 8,5:PRINT CHR$(112)
7210 LOCATE 9,5:PRINT CHR$(101)
7220 LOCATE 10,5:PRINT CHR$(114)
7230 '
7240 LOCATE 12,5:PRINT CHR$(98)
7250 LOCATE 13,5:PRINT CHR$(117)
7260 LOCATE 14,5:PRINT CHR$(115)
7270 LOCATE 15,5:PRINT CHR$(104)
7280 LOCATE 16,5:PRINT CHR$(101)
7290 LOCATE 17,5:PRINT CHR$(108)
7300 '+++++
7310 LOCATE 20,13:PRINT" 81 82 83 84 85 86"
7320 '++++
7330 LOCATE 22,1:PRINT"WHEAT - CBOT - WEEKLY CLOSING PRICE (CENTS PER BUSHEL) - LAST 312 WEEKS. REPORT OF PRICE SPECULATION - ALL CASH BASIS - 50000 BUSHELS.
7340 READ X
7350 Y=X
7360 RESTORE 7870
7370 READ X
7380 'PRINT X;
7390 IF X=-1 THEN 7450
7400 N=N+1
7410 IF X>Z THEN Z=X
7420 IF X<Y THEN Y=X
7430 'PRINT N;X;Y;Z
7440 GOTO 7370
7450 NPT=N:N=0
7460 RESTORE 7870
7470 '
7480 READ X:N=N+1
7490 IF X=-1 THEN 7540
7500 LINE (100+N,(Z-X)/((Z-Y)/145))-(N+100,145),1
7510 LINE (N+100,(Z-X)/((Z-Y)/145))-(N+100,0),2
7520 '
7530 GOTO 7480
7540 'END
7550 '++++++++
7560 FOR I=101 TO 421 STEP 10
7570 FOR J=0 TO 140 STEP 10
7580 PSET(I,J):NEXT:NEXT
7590 FOR I=101 TO 421 STEP 10:PSET (I,145):NEXT
7600 '
7610 '
7620 LOCATE 1,56:PRINT"UPDATE ON:";" 11-14-1986"
7630 LOCATE 2,56:PRINT"PROJECT TO:";" 11-21-1986"
7640 LOCATE 4,56:PRINT"LAST PRICE:";" 282"
7650 LOCATE 7,56:PRINT"TOTAL GAIN:";" $123500"
7660 LOCATE 8,56:PRINT"AVERAGE GAIN:";" $16500"
7670 LOCATE 9,56:PRINT"AVERAGE LOSS:";" $7500"
7680 LOCATE 12,56:PRINT"# OF DIRECTIONS:";" 13"
7690 LOCATE 13,56:PRINT"PROB SUCCESS:";" 69%"
7700 LOCATE 14,56:PRINT"PROB FAIL:";" 23%"
7710 LOCATE 15,56:PRINT"PRICE DIRECT:";" UP"
7720 LOCATE 18,56:PRINT"GAIN / DIRECT:";" $10000"
7730 '++++
7740 '
7750 'LINE (380,35)-(390,70),1,BF
7760 'FOR I=0 TO 25
7770 'LINE (360+I,35-I)-(410-I,35-I)
7780 'NEXT I
7790 FOR I=1 TO 5
7800 LOCATE 15,56:PRINT" "
7810 FOR J=1 TO 900:NEXT J
7820 LOCATE 15,56:PRINT"PRICE DIRECT:";" UP"
7830 FOR J=1 TO 900:NEXT J
7840 NEXT I
7850 LOCATE 15,56:PRINT"PRICE DIRECT:";" UP"
7860 FOR I=1 TO 10^4:NEXT
7870 '++++++++WHEAT++++++++++++
7880 '++++++CBOT+++++++++++++++
7890 '++++++++WEEKLY+++++++++++
7900 '+++++NEAREST FUTURE++++++
7910 '++CENTS PER BUSHEL+++++++
7920 '+++ JANUARY '80++++++++++
7930 '++++++END 11/14/86+++++++
7940 'DATA 445,425,451,448,473
7950 'DATA 457,447,445,434,437
7960 'DATA 426,422,395,406,407
7970 'DATA 380,397,393,419,408
7980 'DATA 417,403,394,403,413
7990 'DATA 423,439,423,433,450
8000 'DATA 464,454,445,453,470
8010 'DATA 467,507,497,499,514
8020 'data 527,538,529
8030 DATA 524,519
8040 DATA 426
8050 DATA 508,489,448,490,482
8060 DATA 508,492,503,472,466
8070 DATA 472,455,461,447,429
8080 DATA 432,425,429,430,441
8090 DATA 438,440,438,409,403
8100 DATA 403,413,409,408,397
8110 DATA 374,380,397,388,413
8120 DATA 408,407,409,397,388
8130 DATA 396,400,402,424,426
8140 DATA 428,432,438,439,438
8150 DATA 435,417,417,416,394
8160 DATA 374,379,392,402,394
8170 DATA 379,377,371,367,360
8180 DATA 356,356,338,356,362
8190 DATA 366,366,377,376,357
8200 DATA 344,349,360,352,342
8210 DATA 351,346,346,350,330
8220 DATA 342,352,343,344,340
8230 DATA 340,344,336,326,315
8240 DATA 339,322,318,308,305
8250 DATA 318,334,333,335,337
8260 DATA 322,316,310,336,331
8270 DATA 332,346,334,335,345
8280 DATA 343,344,324,318,317
8290 DATA 340,360,360,364,350
8300 DATA 352,354,347,355,347
8310 DATA 346,343,349,347,340
8320 DATA 336,344,366,373,378
8330 DATA 382,383,387,385,387
8340 DATA 364,374,371,370,371
8350 DATA 364,358,358,349,337
8360 DATA 342,347,341,347,361
8370 DATA 364,359,362,339,327
8380 DATA 334,326,334,330,340
8390 DATA 354,358,361,374,367
8400 DATA 373,371,358,360,360
8410 DATA 383,366,355,353,350
8420 DATA 354,353,345,343,347
8430 DATA 344,356,355,345,347
8440 DATA 342,349,339,352,347
8450 DATA 349,348,353,360,361
8460 DATA 362,356,362,354,348
8470 DATA 345,347,347,342,349
8480 DATA 351,347,355,358,347
8490 DATA 349,347,346,356,357
8500 DATA 357,364,362,356,348
8510 DATA 337,346,343,317,315
8520 DATA 320,327,327,319,317
8530 DATA 311,299,295,288,286
8540 DATA 293,283,275,283,279
8550 DATA 287,301,293,304,314
8560 DATA 319,325,327,341,335
8570 DATA 334,344,345,340,345
8580 DATA 330,337,327,317,328
8590 DATA 325,332,335,337,347
8600 DATA 350,310,304,311,286
8610 DATA 284,289,311,350,327
8620 DATA 257,248,256,245,257
8630 DATA 250,264,262,257,263
8640 DATA 258,252,259,261,258
8650 DATA 253,264,268,273,277
8660 DATA 288,287,289,282,-1
8670 Y=0:Z=0:N=0:S=0
8680 RESTORE
8690 '++++
8700 CLS
8710 LINE (0,0)-(150,199),1,BF
8720 FOR J=1 TO 100
8730 LINE (50+J,99+J)-(50+J,99-J),0
8740 NEXT J
8750 '++++
8760 LINE (150,0)-(300,199),1,BF
8770 LINE (200,50)-(300,83),0,BF
8780 LINE (200,116)-(300,150),0,BF
8790 '++++
8800 FOR J=100 TO 1 STEP -1
8810 LINE (400-J,100-J)-(400+J,100-J)
8820 NEXT J
8830 LINE (375,75)-(425,199),1,BF
8840 LINE (405,120)-(425,140),0,BF
8850 LINE (405,150)-(425,170),0,BF
8860 FOR K=1 TO 50
8870 CIRCLE (400,25),K,0
8880 NEXT K
8890 '++++
8900 LINE (500,0)-(639,199),1,BF
8910 LINE (550,50)-(639,83),0,BF
8920 LINE (500,116)-(589,150),0,BF
8930 '++++
8940 FOR J=0 TO 4
8950 FOR I=0 TO 199 STEP 10
8960 LINE (0,I+J)-(639,I+J),0
8970 NEXT I
8980 LINE (0,194)-(639,199),0,BF
8990 NEXT J
9000 '++++
9010 FOR K=1 TO 50:PRINT:NEXT K
9020 '++++
9030 GOTO 1120